home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Nibble Volume 09, No. 03 (1988-03)(MicroSPARC)(Side B).zip / Nibble Volume 09, No. 03 (1988-03)(MicroSPARC)(Side B).do / SIMPLE.INPUT.bas < prev    next >
BASIC Source File  |  1996-12-24  |  255b  |  8 lines
  1. 10 STROBE = 49168:INKEY = 49152:KEYPRESS = 0
  2. 20  POKE STROBE,0
  3. 30  FOR I = 1 TO 250
  4. 40  IF  PEEK(INKEY) > = 128  THEN I = 250:KEYPRESS = 1
  5. 50  NEXT I
  6. 60  IF KEYPRESS = 1  THEN  INPUT Z$: GOTO 80
  7. 70  PRINT : PRINT "TIME EXPIRED."
  8. 80  REM  PROGRAM CONTINUES